home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
seqlib.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
60KB
|
2,915 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "seqlib.h"
init_seqlib(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
base[0]= VV[0];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
base[0]= VV[1];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
MF(VV[37],L3,start,size,data);
base[0]= VV[7];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
MF(VV[38],L5,start,size,data);
base[0]= VV[8];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
MF(VV[39],L7,start,size,data);
base[0]= VV[10];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
MF(VV[40],L9,start,size,data);
base[0]= VV[13];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
MF(VV[41],L11,start,size,data);
MF(VV[42],L12,start,size,data);
MF(VV[43],L13,start,size,data);
MF(VV[44],L14,start,size,data);
MF(VV[26],L15,start,size,data);
MF(VV[45],L16,start,size,data);
MF(VV[46],L17,start,size,data);
MF(VV[27],L19,start,size,data);
MF(VV[47],L20,start,size,data);
MF(VV[48],L21,start,size,data);
MF(VV[28],L23,start,size,data);
MF(VV[49],L24,start,size,data);
MF(VV[50],L25,start,size,data);
MF(VV[29],L27,start,size,data);
MF(VV[51],L28,start,size,data);
MF(VV[52],L29,start,size,data);
MF(VV[30],L31,start,size,data);
MF(VV[53],L32,start,size,data);
MF(VV[54],L33,start,size,data);
MF(VV[31],L35,start,size,data);
MF(VV[55],L36,start,size,data);
MF(VV[56],L37,start,size,data);
MF(VV[32],L39,start,size,data);
MF(VV[57],L40,start,size,data);
MF(VV[58],L41,start,size,data);
MF(VV[33],L43,start,size,data);
MF(VV[59],L44,start,size,data);
MF(VV[60],L45,start,size,data);
MF(VV[61],L47,start,size,data);
MF(VV[62],L48,start,size,data);
MF(VV[63],L49,start,size,data);
MF(VV[64],L50,start,size,data);
MF(VV[65],L51,start,size,data);
MF(VV[66],L52,start,size,data);
base[0]= VV[35];
(void)simple_symlispcall_no_event(VV[36],base+0,1);
MF(VV[67],L55,start,size,data);
MF(VV[68],L56,start,size,data);
MF(VV[69],L57,start,size,data);
vs_top=vs_base=base;
}
/* local entry for function SEQTYPE */
static object LI3(V2)
object V2;
{ VMB3 VMS3 VMV3
TTL:;
if(!(type_of((V2))==t_cons||(V2)==Cnil)){
goto T24;}
VMR3(VV[2])
T24:;
if(!(type_of((V2))==t_string)){
goto T27;}
VMR3(VV[3])
T27:;
base[0]= (V2);
vs_top=(vs_base=base+0)+1;
Lbit_vector_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T30;}
VMR3(VV[4])
T30:;
if(!(type_of((V2))==t_vector||
type_of((V2))==t_string||
type_of((V2))==t_bitvector)){
goto T34;}
base[1]= (V2);
vs_top=(vs_base=base+1)+1;
Larray_element_type();
vs_top=sup;
base[0]= vs_base[0];
VMR3(list(2,VV[5],base[0]))
T34:;
base[0]= VV[6];
base[1]= (V2);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
VMR3(vs_base[0])
}
/* local entry for function CALL-TEST */
static object LI5(V7,V8,V9,V10)
object V7,V8,V9,V10;
{ VMB4 VMS4 VMV4
TTL:;
if(((V7))==Cnil){
goto T41;}
base[0]= (V9);
base[1]= (V10);
vs_top=(vs_base=base+0)+2;
super_funcall_no_event((V7));
vs_top=sup;
VMR4(vs_base[0])
T41:;
if(((V8))==Cnil){
goto T46;}
base[1]= (V9);
base[2]= (V10);
vs_top=(vs_base=base+1)+2;
super_funcall_no_event((V8));
vs_top=sup;
base[0]= vs_base[0];
VMR4(((base[0])==Cnil?Ct:Cnil))
T46:;
VMR4((eql((V9),(V10))?Ct:Cnil))
}
/* local entry for function CHECK-SEQ-TEST */
static object LI7(V13,V14)
object V13,V14;
{ VMB5 VMS5 VMV5
TTL:;
if(((V13))==Cnil){
goto T52;}
if(((V14))==Cnil){
goto T52;}
base[0]= VV[9];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
VMR5(vs_base[0])
T52:;
VMR5(Cnil)
}
/* local entry for function CHECK-SEQ-START-END */
static object LI9(V17,V18)
object V17,V18;
{ VMB6 VMS6 VMV6
TTL:;
base[0]= (V17);
if((simple_symlispcall_no_event(VV[70],base+0,1))==Cnil){
goto T58;}
base[0]= (V18);
if((simple_symlispcall_no_event(VV[70],base+0,1))!=Cnil){
goto T57;}
T58:;
base[0]= VV[11];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T57:;
if(!((fix((V17)))>(fix((V18))))){
goto T66;}
base[0]= VV[12];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
VMR6(vs_base[0])
T66:;
VMR6(Cnil)
}
/* local entry for function CHECK-SEQ-ARGS */
static object LI11(V23,V24,V25,V26)
object V23,V24,V25,V26;
{ VMB7 VMS7 VMV7
TTL:;
if(((V23))==Cnil){
goto T69;}
if(((V24))==Cnil){
goto T69;}
base[0]= VV[14];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T69:;
base[0]= (V25);
if((simple_symlispcall_no_event(VV[70],base+0,1))==Cnil){
goto T76;}
base[0]= (V26);
if((simple_symlispcall_no_event(VV[70],base+0,1))!=Cnil){
goto T75;}
T76:;
base[0]= VV[15];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T75:;
if(!((fix((V25)))>(fix((V26))))){
goto T84;}
base[0]= VV[16];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
VMR7(vs_base[0])
T84:;
VMR7(Cnil)
}
/* function definition for REDUCE */
static L12()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[71]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
(void)(LI9(base[3],base[4]));
{int V27;
int V28;
V27= fix(base[3]);
V28= fix(base[4]);
if((base[2])!=Cnil){
goto T93;}
if((base[9])!=Cnil){
goto T95;}
if(!((V27)>=(V28))){
goto T98;}
vs_base=vs_top;
super_funcall_no_event(base[0]);
return;
T98:;
base[5]= elt(base[1],V27);
V27= (V27)+(1);
T95:;
base[10]= base[5];
T105:;
if(!((V27)>=(V28))){
goto T106;}
vs_top=(vs_base=base+10)+1;
return;
T106:;
base[11]= base[10];
base[13]= elt(base[1],V27);
V27= (V27)+(1);
base[12]= base[13];
vs_top=(vs_base=base+11)+2;
super_funcall_no_event(base[0]);
vs_top=sup;
base[10]= vs_base[0];
goto T105;
T93:;
if((base[9])!=Cnil){
goto T118;}
if(!((V27)>=(V28))){
goto T121;}
vs_base=vs_top;
super_funcall_no_event(base[0]);
return;
T121:;
V28= (V28)-(1);
base[5]= elt(base[1],V28);
T118:;
base[10]= base[5];
T128:;
if(!((V27)>=(V28))){
goto T129;}
vs_top=(vs_base=base+10)+1;
return;
T129:;
V28= (V28)-(1);
base[11]= elt(base[1],V28);
base[12]= base[10];
vs_top=(vs_base=base+11)+2;
super_funcall_no_event(base[0]);
vs_top=sup;
base[10]= vs_base[0];
goto T128;}
}
/* function definition for FILL */
static L13()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,2,VV[22],VV[23]);
vs_top=sup;
if(base[4]==Cnil){
base[2]= VV[17];
}else{}
if(base[5]==Cnil){
base[3]= make_fixnum(length(base[0]));
}else{}
(void)(LI9(base[2],base[3]));
{int V29;
int V30;
V29= fix(base[2]);
V30= fix(base[3]);
{int V31;
V31= V29;
T147:;
if(!((V31)>=(V30))){
goto T148;}
vs_top=(vs_base=base+0)+1;
return;
T148:;
(void)(elt_set(base[0],V31,base[1]));
V31= (V31)+1;
goto T147;}}
}
/* function definition for REPLACE */
static L14()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[72],VV[73],VV[74],VV[75]);
vs_top=sup;
if(base[6]==Cnil){
base[2]= VV[17];
}else{}
if(base[7]==Cnil){
base[3]= make_fixnum(length(base[0]));
}else{}
if(base[8]==Cnil){
base[4]= VV[17];
}else{}
if(base[9]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
(void)(LI9(base[2],base[3]));
(void)(LI9(base[4],base[5]));
{int V32;
int V33;
int V34;
int V35;
V32= fix(base[2]);
V33= fix(base[3]);
V34= fix(base[4]);
V35= fix(base[5]);
if(!(base[0]==base[1])){
goto T167;}
if(!((V32)>(V34))){
goto T167;}
{int V36;
int V37;
int V38;
int V39;
V36= 0;
if(!(((V33)-(V32))<((V35)-(V34)))){
goto T174;}
V37= (V33)-(V32);
goto T172;
T174:;
V37= (V35)-(V34);
T172:;
V38= (V32)+((V37)-1);
V39= (V34)+((V37)-1);
T179:;
if(!((V36)>=(V37))){
goto T180;}
vs_top=(vs_base=base+0)+1;
return;
T180:;
base[10]= elt(base[1],V39);
(void)(elt_set(base[0],V38,base[10]));
V36= (V36)+1;
V38= (V38)-1;
V39= (V39)-1;
goto T179;}
T167:;
{int V40;
int V41;
int V42;
int V43;
V40= 0;
if(!(((V33)-(V32))<((V35)-(V34)))){
goto T195;}
V41= (V33)-(V32);
goto T193;
T195:;
V41= (V35)-(V34);
T193:;
V42= V32;
V43= V34;
T200:;
if(!((V40)>=(V41))){
goto T201;}
vs_top=(vs_base=base+0)+1;
return;
T201:;
base[10]= elt(base[1],V43);
(void)(elt_set(base[0],V42,base[10]));
V40= (V40)+1;
V42= (V42)+1;
V43= (V43)+1;
goto T200;}}
}
/* function definition for REMOVE */
static L15()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
{int V44;
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,7,VV[19],VV[20],VV[21],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[12]==Cnil){
base[5]= VV[17];
}else{}
if(base[13]==Cnil){
base[6]= make_fixnum(length(base[1]));
}else{}
if(base[14]==Cnil){
V44= length(base[1]);
}else{
V44=fix(base[7]);}
if(base[15]==Cnil){
base[8]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[3],base[4],base[5],base[6]));
{int V45;
int V46;
V45= fix(base[5]);
V46= fix(base[6]);
if((base[2])!=Cnil){
goto T219;}
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T222;}
base[16]= base[1];
base[17]= Cnil;
{int V47;
V47= 0;
T227:;
if(!((V47)>=(V45))){
goto T228;}
goto T224;
T228:;
base[17]= make_cons(car(base[16]),base[17]);
base[18]= car(base[16]);
base[16]= cdr(base[16]);
V47= (V47)+1;
goto T227;}
T224:;
{int V48;
int V49;
V48= V45;
V49= 0;
T244:;
if((V48)>=(V46)){
goto T246;}
if((V49)>=(V44)){
goto T246;}
if(!(endp(base[16]))){
goto T245;}
T246:;
base[18]= base[17];
base[19]= base[16];
vs_top=(vs_base=base+18)+2;
Lreconc();
return;
T245:;
base[19]= car(base[16]);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[8]);
vs_top=sup;
base[18]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[18]))==Cnil){
goto T257;}
V49= (V49)+(1);
base[18]= car(base[16]);
base[16]= cdr(base[16]);
goto T255;
T257:;
base[17]= make_cons(car(base[16]),base[17]);
base[18]= car(base[16]);
base[16]= cdr(base[16]);
T255:;
V48= (V48)+1;
goto T244;}
T222:;
base[16]= base[0];
base[17]= base[1];
base[18]= VV[19];
base[19]= base[2];
base[20]= VV[20];
base[21]= base[3];
base[22]= VV[21];
base[23]= base[4];
base[24]= VV[22];
base[25]= make_fixnum(V45);
base[26]= VV[23];
base[27]= make_fixnum(V46);
base[28]= VV[24];
base[29]= make_fixnum(V44);
base[30]= VV[25];
base[31]= base[8];
vs_top=(vs_base=base+16)+16;
L19();
return;
T219:;
base[16]= base[0];
base[17]= base[1];
base[18]= VV[19];
base[19]= base[2];
base[20]= VV[20];
base[21]= base[3];
base[22]= VV[21];
base[23]= base[4];
base[24]= VV[22];
base[25]= make_fixnum(V45);
base[26]= VV[23];
base[27]= make_fixnum(V46);
base[28]= VV[24];
base[29]= make_fixnum(V44);
base[30]= VV[25];
base[31]= base[8];
vs_top=(vs_base=base+16)+16;
L19();
return;}
}
}
/* function definition for REMOVE-IF */
static L16()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[8]==Cnil){
base[3]= VV[17];
}else{}
if(base[9]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
if(base[11]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
base[12]= base[0];
base[13]= base[1];
base[14]= VV[19];
base[15]= base[2];
base[16]= VV[20];
base[17]= symbol_function(VV[77]);
base[18]= VV[22];
base[19]= base[3];
base[20]= VV[23];
base[21]= base[4];
base[22]= VV[24];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+12)+14;
L15();
return;
}
/* function definition for REMOVE-IF-NOT */
static L17()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[8]==Cnil){
base[3]= VV[17];
}else{}
if(base[9]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
if(base[11]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
base[12]= base[0];
base[13]= base[1];
base[14]= VV[19];
base[15]= base[2];
base[16]= VV[21];
base[17]= symbol_function(VV[77]);
base[18]= VV[22];
base[19]= base[3];
base[20]= VV[23];
base[21]= base[4];
base[22]= VV[24];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+12)+14;
L15();
return;
}
/* function definition for DELETE */
static L19()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
{int V50;
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,7,VV[19],VV[20],VV[21],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[12]==Cnil){
base[5]= VV[17];
}else{}
if(base[13]==Cnil){
base[6]= make_fixnum(length(base[1]));
}else{}
if(base[14]==Cnil){
V50= length(base[1]);
}else{
V50=fix(base[7]);}
if(base[15]==Cnil){
base[8]= symbol_function(VV[76]);
}else{}
{int V51;
V51= length(base[1]);
(void)(LI11(base[3],base[4],base[5],base[6]));
{int V52;
int V53;
V52= fix(base[5]);
V53= fix(base[6]);
if((base[2])!=Cnil){
goto T351;}
if(!(type_of(base[1])==t_cons||base[1]==Cnil)){
goto T354;}
base[16]= make_cons(Cnil,base[1]);
base[17]= base[16];
{int V54;
V54= 0;
T360:;
if(!((V54)>=(V52))){
goto T361;}
goto T357;
T361:;
base[18]= car(base[17]);
base[17]= cdr(base[17]);
V54= (V54)+1;
goto T360;}
T357:;
{int V55;
int V56;
V55= V52;
V56= 0;
T375:;
if((V55)>=(V53)){
goto T377;}
if((V56)>=(V50)){
goto T377;}
if(!(endp(cdr(base[17])))){
goto T376;}
T377:;
base[18]= cdr(base[16]);
vs_top=(vs_base=base+18)+1;
return;
T376:;
base[19]= cadr(base[17]);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[8]);
vs_top=sup;
base[18]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[18]))==Cnil){
goto T386;}
V56= (V56)+(1);
if(type_of(base[17])!=t_cons)FEwrong_type_argument(Scons,base[17]);
(base[17])->c.c_cdr = cddr(base[17]);
goto T384;
T386:;
base[17]= cdr(base[17]);
T384:;
V55= (V55)+1;
goto T375;}
T354:;
{int V57;
base[16]= base[0];
base[17]= base[1];
base[18]= VV[19];
base[19]= base[2];
base[20]= VV[20];
base[21]= base[3];
base[22]= VV[21];
base[23]= base[4];
base[24]= VV[22];
base[25]= make_fixnum(V52);
base[26]= VV[23];
base[27]= make_fixnum(V53);
base[28]= VV[24];
base[29]= make_fixnum(V50);
base[30]= VV[25];
base[31]= base[8];
vs_top=(vs_base=base+16)+16;
L27();
vs_top=sup;
V57= fix(vs_base[0]);
if(!((V57)<(V50))){
goto T413;}
V50= V57;
T413:;
{int V58;
int V59;
int V60;
base[17]=symbol_function(VV[78]);
base[18]= LI3(base[1]);
base[19]= make_fixnum((V51)-(V50));
base[16]= simple_lispcall_no_event(base+17,2);
V58= 0;
V59= V52;
V60= 0;
T424:;
if(!((V58)>=(V51))){
goto T425;}
vs_top=(vs_base=base+16)+1;
return;
T425:;
if(!((V52)<=(V58))){
goto T431;}
if(!((V58)<(V53))){
goto T431;}
if(!((V60)<(V50))){
goto T431;}
base[18]= elt(base[1],V58);
vs_top=(vs_base=base+18)+1;
super_funcall_no_event(base[8]);
vs_top=sup;
base[17]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[17]))==Cnil){
goto T431;}
V60= (V60)+1;
goto T429;
T431:;
base[17]= elt(base[1],V58);
(void)(elt_set(base[16],V59,base[17]));
V59= (V59)+(1);
T429:;
V58= (V58)+1;
goto T424;}}
T351:;
{int V61;
base[16]= base[0];
base[17]= base[1];
base[18]= VV[19];
base[19]= base[2];
base[20]= VV[20];
base[21]= base[3];
base[22]= VV[21];
base[23]= base[4];
base[24]= VV[22];
base[25]= make_fixnum(V52);
base[26]= VV[23];
base[27]= make_fixnum(V53);
base[28]= VV[24];
base[29]= make_fixnum(V50);
base[30]= VV[25];
base[31]= base[8];
vs_top=(vs_base=base+16)+16;
L27();
vs_top=sup;
V61= fix(vs_base[0]);
if(!((V61)<(V50))){
goto T464;}
V50= V61;
T464:;
{int V62;
int V63;
int V64;
base[17]=symbol_function(VV[78]);
base[18]= LI3(base[1]);
base[19]= make_fixnum((V51)-(V50));
base[16]= simple_lispcall_no_event(base+17,2);
V62= (V51)-1;
V63= ((V53)-1)-(V61);
V64= 0;
T475:;
if(!((V62)<(0))){
goto T476;}
vs_top=(vs_base=base+16)+1;
return;
T476:;
if(!((V52)<=(V62))){
goto T482;}
if(!((V62)<(V53))){
goto T482;}
if(!((V64)<(V50))){
goto T482;}
base[18]= elt(base[1],V62);
vs_top=(vs_base=base+18)+1;
super_funcall_no_event(base[8]);
vs_top=sup;
base[17]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[17]))==Cnil){
goto T482;}
V64= (V64)+1;
goto T480;
T482:;
base[17]= elt(base[1],V62);
(void)(elt_set(base[16],V63,base[17]));
V63= (V63)-(1);
T480:;
V62= (V62)-1;
goto T475;}}}}
}
}
/* function definition for DELETE-IF */
static L20()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[8]==Cnil){
base[3]= VV[17];
}else{}
if(base[9]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
if(base[11]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
base[12]= base[0];
base[13]= base[1];
base[14]= VV[19];
base[15]= base[2];
base[16]= VV[20];
base[17]= symbol_function(VV[77]);
base[18]= VV[22];
base[19]= base[3];
base[20]= VV[23];
base[21]= base[4];
base[22]= VV[24];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+12)+14;
L19();
return;
}
/* function definition for DELETE-IF-NOT */
static L21()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[8]==Cnil){
base[3]= VV[17];
}else{}
if(base[9]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
if(base[11]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
base[12]= base[0];
base[13]= base[1];
base[14]= VV[19];
base[15]= base[2];
base[16]= VV[21];
base[17]= symbol_function(VV[77]);
base[18]= VV[22];
base[19]= base[3];
base[20]= VV[23];
base[21]= base[4];
base[22]= VV[24];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+12)+14;
L19();
return;
}
/* function definition for COUNT */
static L23()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,6,VV[19],VV[20],VV[21],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[11]==Cnil){
base[5]= VV[17];
}else{}
if(base[12]==Cnil){
base[6]= make_fixnum(length(base[1]));
}else{}
if(base[13]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[3],base[4],base[5],base[6]));
{int V65;
int V66;
V65= fix(base[5]);
V66= fix(base[6]);
if((base[2])!=Cnil){
goto T541;}
{int V67;
int V68;
V67= V65;
V68= 0;
T546:;
if(!((V67)>=(V66))){
goto T547;}
base[14]= make_fixnum(V68);
vs_top=(vs_base=base+14)+1;
return;
T547:;
base[15]= elt(base[1],V67);
vs_top=(vs_base=base+15)+1;
super_funcall_no_event(base[7]);
vs_top=sup;
base[14]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[14]))==Cnil){
goto T551;}
V68= (V68)+1;
T551:;
V67= (V67)+1;
goto T546;}
T541:;
{int V69;
int V70;
V69= (V66)-1;
V70= 0;
T563:;
if(!((V69)<(V65))){
goto T564;}
base[14]= make_fixnum(V70);
vs_top=(vs_base=base+14)+1;
return;
T564:;
base[15]= elt(base[1],V69);
vs_top=(vs_base=base+15)+1;
super_funcall_no_event(base[7]);
vs_top=sup;
base[14]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[14]))==Cnil){
goto T568;}
V70= (V70)+1;
T568:;
V69= (V69)-1;
goto T563;}}
}
/* function definition for COUNT-IF */
static L24()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[9]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
base[10]= base[0];
base[11]= base[1];
base[12]= VV[19];
base[13]= base[2];
base[14]= VV[20];
base[15]= symbol_function(VV[77]);
base[16]= VV[22];
base[17]= base[3];
base[18]= VV[23];
base[19]= base[4];
base[20]= VV[25];
base[21]= base[5];
vs_top=(vs_base=base+10)+12;
L23();
return;
}
/* function definition for COUNT-IF-NOT */
static L25()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[9]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
base[10]= base[0];
base[11]= base[1];
base[12]= VV[19];
base[13]= base[2];
base[14]= VV[21];
base[15]= symbol_function(VV[77]);
base[16]= VV[22];
base[17]= base[3];
base[18]= VV[23];
base[19]= base[4];
base[20]= VV[25];
base[21]= base[5];
vs_top=(vs_base=base+10)+12;
L23();
return;
}
/* function definition for INTERNAL-COUNT */
static L27()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
{int V71;
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,7,VV[19],VV[20],VV[21],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[12]==Cnil){
base[5]= VV[17];
}else{}
if(base[13]==Cnil){
base[6]= make_fixnum(length(base[1]));
}else{}
if(base[14]==Cnil){
V71= length(base[1]);
}else{
V71=fix(base[7]);}
if(base[15]==Cnil){
base[8]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[3],base[4],base[5],base[6]));
{int V72;
int V73;
V72= fix(base[5]);
V73= fix(base[6]);
if((base[2])!=Cnil){
goto T615;}
{int V74;
int V75;
V74= V72;
V75= 0;
T620:;
if(!((V74)>=(V73))){
goto T621;}
base[16]= make_fixnum(V75);
vs_top=(vs_base=base+16)+1;
return;
T621:;
if(!((V75)<(V71))){
goto T625;}
base[17]= elt(base[1],V74);
vs_top=(vs_base=base+17)+1;
super_funcall_no_event(base[8]);
vs_top=sup;
base[16]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[16]))==Cnil){
goto T625;}
V75= (V75)+1;
T625:;
V74= (V74)+1;
goto T620;}
T615:;
{int V76;
int V77;
V76= (V73)-1;
V77= 0;
T639:;
if(!((V76)<(V72))){
goto T640;}
base[16]= make_fixnum(V77);
vs_top=(vs_base=base+16)+1;
return;
T640:;
if(!((V77)<(V71))){
goto T644;}
base[17]= elt(base[1],V76);
vs_top=(vs_base=base+17)+1;
super_funcall_no_event(base[8]);
vs_top=sup;
base[16]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[16]))==Cnil){
goto T644;}
V77= (V77)+1;
T644:;
V76= (V76)-1;
goto T639;}}
}
}
/* function definition for INTERNAL-COUNT-IF */
static L28()
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[8]==Cnil){
base[3]= VV[17];
}else{}
if(base[9]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
if(base[11]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
base[12]= base[0];
base[13]= base[1];
base[14]= VV[19];
base[15]= base[2];
base[16]= VV[20];
base[17]= symbol_function(VV[77]);
base[18]= VV[22];
base[19]= base[3];
base[20]= VV[23];
base[21]= base[4];
base[22]= VV[24];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+12)+14;
L27();
return;
}
/* function definition for INTERNAL-COUNT-IF-NOT */
static L29()
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[8]==Cnil){
base[3]= VV[17];
}else{}
if(base[9]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[1]));
}else{}
if(base[11]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
base[12]= base[0];
base[13]= base[1];
base[14]= VV[19];
base[15]= base[2];
base[16]= VV[21];
base[17]= symbol_function(VV[77]);
base[18]= VV[22];
base[19]= base[3];
base[20]= VV[23];
base[21]= base[4];
base[22]= VV[24];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+12)+14;
L27();
return;
}
/* function definition for SUBSTITUTE */
static L31()
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
{int V78;
if(vs_top-vs_base<3) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,7,VV[19],VV[20],VV[21],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[13]==Cnil){
base[6]= VV[17];
}else{}
if(base[14]==Cnil){
base[7]= make_fixnum(length(base[2]));
}else{}
if(base[15]==Cnil){
V78= length(base[2]);
}else{
V78=fix(base[8]);}
if(base[16]==Cnil){
base[9]= symbol_function(VV[76]);
}else{}
{int V79;
V79= length(base[2]);
(void)(LI11(base[4],base[5],base[6],base[7]));
{int V80;
int V81;
V80= fix(base[6]);
V81= fix(base[7]);
if((base[3])!=Cnil){
goto T700;}
{int V82;
int V83;
base[18]=symbol_function(VV[78]);
base[19]= LI3(base[2]);
base[20]= make_fixnum(V79);
base[17]= simple_lispcall_no_event(base+18,2);
V82= 0;
V83= 0;
T708:;
if(!((V82)>=(V79))){
goto T709;}
vs_top=(vs_base=base+17)+1;
return;
T709:;
if(!((V80)<=(V82))){
goto T715;}
if(!((V82)<(V81))){
goto T715;}
if(!((V83)<(V78))){
goto T715;}
base[19]= elt(base[2],V82);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[9]);
vs_top=sup;
base[18]= vs_base[0];
if((LI5(base[4],base[5],base[1],base[18]))==Cnil){
goto T715;}
(void)(elt_set(base[17],V82,base[0]));
V83= (V83)+1;
goto T713;
T715:;
base[18]= elt(base[2],V82);
(void)(elt_set(base[17],V82,base[18]));
T713:;
V82= (V82)+1;
goto T708;}
T700:;
{int V84;
int V85;
base[18]=symbol_function(VV[78]);
base[19]= LI3(base[2]);
base[20]= make_fixnum(V79);
base[17]= simple_lispcall_no_event(base+18,2);
V84= (V79)-1;
V85= 0;
T736:;
if(!((V84)<(0))){
goto T737;}
vs_top=(vs_base=base+17)+1;
return;
T737:;
if(!((V80)<=(V84))){
goto T743;}
if(!((V84)<(V81))){
goto T743;}
if(!((V85)<(V78))){
goto T743;}
base[19]= elt(base[2],V84);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[9]);
vs_top=sup;
base[18]= vs_base[0];
if((LI5(base[4],base[5],base[1],base[18]))==Cnil){
goto T743;}
(void)(elt_set(base[17],V84,base[0]));
V85= (V85)+1;
goto T741;
T743:;
base[18]= elt(base[2],V84);
(void)(elt_set(base[17],V84,base[18]));
T741:;
V84= (V84)-1;
goto T736;}}}
}
}
/* function definition for SUBSTITUTE-IF */
static L32()
{ register object *base=vs_base;
register object *sup=base+VM24;
vs_reserve(VM24);
if(vs_top-vs_base<3) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[9]==Cnil){
base[4]= VV[17];
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[2]));
}else{}
if(base[11]==Cnil){
base[6]= make_fixnum(length(base[2]));
}else{}
if(base[12]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
base[13]= base[0];
base[14]= base[1];
base[15]= base[2];
base[16]= VV[19];
base[17]= base[3];
base[18]= VV[20];
base[19]= symbol_function(VV[77]);
base[20]= VV[22];
base[21]= base[4];
base[22]= VV[23];
base[23]= base[5];
base[24]= VV[24];
base[25]= base[6];
base[26]= VV[25];
base[27]= base[7];
vs_top=(vs_base=base+13)+15;
L31();
return;
}
/* function definition for SUBSTITUTE-IF-NOT */
static L33()
{ register object *base=vs_base;
register object *sup=base+VM25;
vs_reserve(VM25);
if(vs_top-vs_base<3) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[9]==Cnil){
base[4]= VV[17];
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[2]));
}else{}
if(base[11]==Cnil){
base[6]= make_fixnum(length(base[2]));
}else{}
if(base[12]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
base[13]= base[0];
base[14]= base[1];
base[15]= base[2];
base[16]= VV[19];
base[17]= base[3];
base[18]= VV[21];
base[19]= symbol_function(VV[77]);
base[20]= VV[22];
base[21]= base[4];
base[22]= VV[23];
base[23]= base[5];
base[24]= VV[24];
base[25]= base[6];
base[26]= VV[25];
base[27]= base[7];
vs_top=(vs_base=base+13)+15;
L31();
return;
}
/* function definition for NSUBSTITUTE */
static L35()
{ register object *base=vs_base;
register object *sup=base+VM26;
vs_reserve(VM26);
{int V86;
if(vs_top-vs_base<3) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,7,VV[19],VV[20],VV[21],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[13]==Cnil){
base[6]= VV[17];
}else{}
if(base[14]==Cnil){
base[7]= make_fixnum(length(base[2]));
}else{}
if(base[15]==Cnil){
V86= length(base[2]);
}else{
V86=fix(base[8]);}
if(base[16]==Cnil){
base[9]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[4],base[5],base[6],base[7]));
{int V87;
int V88;
V87= fix(base[6]);
V88= fix(base[7]);
if((base[3])!=Cnil){
goto T804;}
{int V89;
int V90;
V89= V87;
V90= 0;
T809:;
if(!((V89)>=(V88))){
goto T810;}
vs_top=(vs_base=base+2)+1;
return;
T810:;
if(!((V90)<(V86))){
goto T814;}
base[18]= elt(base[2],V89);
vs_top=(vs_base=base+18)+1;
super_funcall_no_event(base[9]);
vs_top=sup;
base[17]= vs_base[0];
if((LI5(base[4],base[5],base[1],base[17]))==Cnil){
goto T814;}
(void)(elt_set(base[2],V89,base[0]));
V90= (V90)+1;
T814:;
V89= (V89)+1;
goto T809;}
T804:;
{int V91;
int V92;
V91= (V88)-1;
V92= 0;
T829:;
if(!((V91)<(V87))){
goto T830;}
vs_top=(vs_base=base+2)+1;
return;
T830:;
if(!((V92)<(V86))){
goto T834;}
base[18]= elt(base[2],V91);
vs_top=(vs_base=base+18)+1;
super_funcall_no_event(base[9]);
vs_top=sup;
base[17]= vs_base[0];
if((LI5(base[4],base[5],base[1],base[17]))==Cnil){
goto T834;}
(void)(elt_set(base[2],V91,base[0]));
V92= (V92)+1;
T834:;
V91= (V91)-1;
goto T829;}}
}
}
/* function definition for NSUBSTITUTE-IF */
static L36()
{ register object *base=vs_base;
register object *sup=base+VM27;
vs_reserve(VM27);
if(vs_top-vs_base<3) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[9]==Cnil){
base[4]= VV[17];
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[2]));
}else{}
if(base[11]==Cnil){
base[6]= make_fixnum(length(base[2]));
}else{}
if(base[12]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
base[13]= base[0];
base[14]= base[1];
base[15]= base[2];
base[16]= VV[19];
base[17]= base[3];
base[18]= VV[20];
base[19]= symbol_function(VV[77]);
base[20]= VV[22];
base[21]= base[4];
base[22]= VV[23];
base[23]= base[5];
base[24]= VV[24];
base[25]= base[6];
base[26]= VV[25];
base[27]= base[7];
vs_top=(vs_base=base+13)+15;
L35();
return;
}
/* function definition for NSUBSTITUTE-IF-NOT */
static L37()
{ register object *base=vs_base;
register object *sup=base+VM28;
vs_reserve(VM28);
if(vs_top-vs_base<3) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,5,VV[19],VV[22],VV[23],VV[24],VV[25]);
vs_top=sup;
if(base[9]==Cnil){
base[4]= VV[17];
}else{}
if(base[10]==Cnil){
base[5]= make_fixnum(length(base[2]));
}else{}
if(base[11]==Cnil){
base[6]= make_fixnum(length(base[2]));
}else{}
if(base[12]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
base[13]= base[0];
base[14]= base[1];
base[15]= base[2];
base[16]= VV[19];
base[17]= base[3];
base[18]= VV[21];
base[19]= symbol_function(VV[77]);
base[20]= VV[22];
base[21]= base[4];
base[22]= VV[23];
base[23]= base[5];
base[24]= VV[24];
base[25]= base[6];
base[26]= VV[25];
base[27]= base[7];
vs_top=(vs_base=base+13)+15;
L35();
return;
}
/* function definition for FIND */
static L39()
{ register object *base=vs_base;
register object *sup=base+VM29;
vs_reserve(VM29);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,6,VV[19],VV[20],VV[21],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[11]==Cnil){
base[5]= VV[17];
}else{}
if(base[12]==Cnil){
base[6]= make_fixnum(length(base[1]));
}else{}
if(base[13]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[3],base[4],base[5],base[6]));
{int V93;
int V94;
V93= fix(base[5]);
V94= fix(base[6]);
if((base[2])!=Cnil){
goto T891;}
{int V95;
V95= V93;
T895:;
if(!((V95)>=(V94))){
goto T896;}
base[14]= Cnil;
vs_top=(vs_base=base+14)+1;
return;
T896:;
base[15]= elt(base[1],V95);
vs_top=(vs_base=base+15)+1;
super_funcall_no_event(base[7]);
vs_top=sup;
base[14]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[14]))==Cnil){
goto T900;}
base[14]= elt(base[1],V95);
vs_top=(vs_base=base+14)+1;
return;
T900:;
V95= (V95)+1;
goto T895;}
T891:;
{int V96;
V96= (V94)-1;
T910:;
if(!((V96)<(V93))){
goto T911;}
base[14]= Cnil;
vs_top=(vs_base=base+14)+1;
return;
T911:;
base[15]= elt(base[1],V96);
vs_top=(vs_base=base+15)+1;
super_funcall_no_event(base[7]);
vs_top=sup;
base[14]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[14]))==Cnil){
goto T915;}
base[14]= elt(base[1],V96);
vs_top=(vs_base=base+14)+1;
return;
T915:;
V96= (V96)-1;
goto T910;}}
}
/* function definition for FIND-IF */
static L40()
{ register object *base=vs_base;
register object *sup=base+VM30;
vs_reserve(VM30);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[9]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
base[10]= base[0];
base[11]= base[1];
base[12]= VV[19];
base[13]= base[2];
base[14]= VV[20];
base[15]= symbol_function(VV[77]);
base[16]= VV[22];
base[17]= base[3];
base[18]= VV[23];
base[19]= base[4];
base[20]= VV[25];
base[21]= base[5];
vs_top=(vs_base=base+10)+12;
L39();
return;
}
/* function definition for FIND-IF-NOT */
static L41()
{ register object *base=vs_base;
register object *sup=base+VM31;
vs_reserve(VM31);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[9]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
base[10]= base[0];
base[11]= base[1];
base[12]= VV[19];
base[13]= base[2];
base[14]= VV[21];
base[15]= symbol_function(VV[77]);
base[16]= VV[22];
base[17]= base[3];
base[18]= VV[23];
base[19]= base[4];
base[20]= VV[25];
base[21]= base[5];
vs_top=(vs_base=base+10)+12;
L39();
return;
}
/* function definition for POSITION */
static L43()
{ register object *base=vs_base;
register object *sup=base+VM32;
vs_reserve(VM32);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,6,VV[19],VV[20],VV[21],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[11]==Cnil){
base[5]= VV[17];
}else{}
if(base[12]==Cnil){
base[6]= make_fixnum(length(base[1]));
}else{}
if(base[13]==Cnil){
base[7]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[3],base[4],base[5],base[6]));
{int V97;
int V98;
V97= fix(base[5]);
V98= fix(base[6]);
if((base[2])!=Cnil){
goto T960;}
{int V99;
V99= V97;
T964:;
if(!((V99)>=(V98))){
goto T965;}
base[14]= Cnil;
vs_top=(vs_base=base+14)+1;
return;
T965:;
base[15]= elt(base[1],V99);
vs_top=(vs_base=base+15)+1;
super_funcall_no_event(base[7]);
vs_top=sup;
base[14]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[14]))==Cnil){
goto T969;}
base[14]= make_fixnum(V99);
vs_top=(vs_base=base+14)+1;
return;
T969:;
V99= (V99)+1;
goto T964;}
T960:;
{int V100;
V100= (V98)-1;
T979:;
if(!((V100)<(V97))){
goto T980;}
base[14]= Cnil;
vs_top=(vs_base=base+14)+1;
return;
T980:;
base[15]= elt(base[1],V100);
vs_top=(vs_base=base+15)+1;
super_funcall_no_event(base[7]);
vs_top=sup;
base[14]= vs_base[0];
if((LI5(base[3],base[4],base[0],base[14]))==Cnil){
goto T984;}
base[14]= make_fixnum(V100);
vs_top=(vs_base=base+14)+1;
return;
T984:;
V100= (V100)-1;
goto T979;}}
}
/* function definition for POSITION-IF */
static L44()
{ register object *base=vs_base;
register object *sup=base+VM33;
vs_reserve(VM33);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[9]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
base[10]= base[0];
base[11]= base[1];
base[12]= VV[19];
base[13]= base[2];
base[14]= VV[20];
base[15]= symbol_function(VV[77]);
base[16]= VV[22];
base[17]= base[3];
base[18]= VV[23];
base[19]= base[4];
base[20]= VV[25];
base[21]= base[5];
vs_top=(vs_base=base+10)+12;
L43();
return;
}
/* function definition for POSITION-IF-NOT */
static L45()
{ register object *base=vs_base;
register object *sup=base+VM34;
vs_reserve(VM34);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,4,VV[19],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[7]==Cnil){
base[3]= VV[17];
}else{}
if(base[8]==Cnil){
base[4]= make_fixnum(length(base[1]));
}else{}
if(base[9]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
base[10]= base[0];
base[11]= base[1];
base[12]= VV[19];
base[13]= base[2];
base[14]= VV[21];
base[15]= symbol_function(VV[77]);
base[16]= VV[22];
base[17]= base[3];
base[18]= VV[23];
base[19]= base[4];
base[20]= VV[25];
base[21]= base[5];
vs_top=(vs_base=base+10)+12;
L43();
return;
}
/* function definition for REMOVE-DUPLICATES */
static L47()
{ register object *base=vs_base;
register object *sup=base+VM35;
vs_reserve(VM35);
if(vs_top-vs_base<1) too_few_arguments();
parse_key(vs_base+1,FALSE,FALSE,6,VV[19],VV[20],VV[21],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[10]==Cnil){
base[4]= VV[17];
}else{}
if(base[11]==Cnil){
base[5]= make_fixnum(length(base[0]));
}else{}
if(base[12]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
(void)(LI11(base[2],base[3],base[4],base[5]));
if(!(type_of(base[0])==t_cons||base[0]==Cnil)){
goto T1026;}
if((base[1])!=Cnil){
goto T1026;}
if((base[10])!=Cnil){
goto T1026;}
if((base[11])!=Cnil){
goto T1026;}
if(!(endp(base[0]))){
goto T1035;}
base[13]= Cnil;
vs_top=(vs_base=base+13)+1;
return;
T1035:;
base[13]= base[0];
base[14]= Cnil;
T1039:;
if(!(endp(cdr(base[13])))){
goto T1040;}
base[15]= base[14];
base[16]= base[13];
vs_top=(vs_base=base+15)+2;
Lreconc();
return;
T1040:;
base[15]= car(base[13]);
base[16]= cdr(base[13]);
base[17]= VV[20];
base[18]= base[2];
base[19]= VV[21];
base[20]= base[3];
base[21]= VV[25];
base[22]= base[6];
if((simple_symlispcall_no_event(VV[79],base+15,8))!=Cnil){
goto T1046;}
base[14]= make_cons(car(base[13]),base[14]);
T1046:;
base[13]= cdr(base[13]);
goto T1039;
T1026:;
base[13]= base[0];
base[14]= VV[19];
base[15]= base[1];
base[16]= VV[20];
base[17]= base[2];
base[18]= VV[21];
base[19]= base[3];
base[20]= VV[22];
base[21]= base[4];
base[22]= VV[23];
base[23]= base[5];
base[24]= VV[25];
base[25]= base[6];
vs_top=(vs_base=base+13)+13;
L48();
return;
}
/* function definition for DELETE-DUPLICATES */
static L48()
{ register object *base=vs_base;
register object *sup=base+VM36;
vs_reserve(VM36);
if(vs_top-vs_base<1) too_few_arguments();
parse_key(vs_base+1,FALSE,FALSE,6,VV[19],VV[20],VV[21],VV[22],VV[23],VV[25]);
vs_top=sup;
if(base[10]==Cnil){
base[4]= VV[17];
}else{}
if(base[11]==Cnil){
base[5]= make_fixnum(length(base[0]));
}else{}
if(base[12]==Cnil){
base[6]= symbol_function(VV[76]);
}else{}
{int V101;
V101= length(base[0]);
(void)(LI11(base[2],base[3],base[4],base[5]));
if(!(type_of(base[0])==t_cons||base[0]==Cnil)){
goto T1079;}
if((base[1])!=Cnil){
goto T1079;}
if((base[10])!=Cnil){
goto T1079;}
if((base[11])!=Cnil){
goto T1079;}
if(!(endp(base[0]))){
goto T1088;}
base[13]= Cnil;
vs_top=(vs_base=base+13)+1;
return;
T1088:;
base[13]= base[0];
T1092:;
if(!(endp(cdr(base[13])))){
goto T1093;}
vs_top=(vs_base=base+0)+1;
return;
T1093:;
base[14]= car(base[13]);
base[15]= cdr(base[13]);
base[16]= VV[20];
base[17]= base[2];
base[18]= VV[21];
base[19]= base[3];
base[20]= VV[25];
base[21]= base[6];
if((simple_symlispcall_no_event(VV[79],base+14,8))==Cnil){
goto T1099;}
if(type_of(base[13])!=t_cons)FEwrong_type_argument(Scons,base[13]);
(base[13])->c.c_car = cadr(base[13]);
if(type_of(base[13])!=t_cons)FEwrong_type_argument(Scons,base[13]);
(base[13])->c.c_cdr = cddr(base[13]);
goto T1097;
T1099:;
base[13]= cdr(base[13]);
T1097:;
goto T1092;
T1079:;
{int V102;
int V103;
V102= fix(base[4]);
V103= fix(base[5]);
if((base[1])!=Cnil){
goto T1116;}
{int V104;
int V105;
V104= 0;
V105= V102;
T1121:;
if(!((V105)>=(V103))){
goto T1122;}
{int V106;
int V107;
base[14]=symbol_function(VV[78]);
base[15]= LI3(base[0]);
base[16]= make_fixnum((V101)-(V104));
base[13]= simple_lispcall_no_event(base+14,2);
V106= 0;
V107= 0;
T1131:;
if(!((V106)>=(V101))){
goto T1132;}
vs_top=(vs_base=base+13)+1;
return;
T1132:;
if((V102)<=(V106)){
goto T1138;}
base[14]= Cnil;
goto T1137;
T1138:;
if((V106)<(V103)){
goto T1140;}
base[14]= Cnil;
goto T1137;
T1140:;
base[16]= elt(base[0],V106);
vs_top=(vs_base=base+16)+1;
super_funcall_no_event(base[6]);
vs_top=sup;
base[15]= vs_base[0];
base[16]= base[0];
base[17]= VV[20];
base[18]= base[2];
base[19]= VV[21];
base[20]= base[3];
base[21]= VV[22];
base[22]= make_fixnum((V106)+1);
base[23]= VV[23];
base[24]= make_fixnum(V103);
base[25]= VV[25];
base[26]= base[6];
vs_top=(vs_base=base+15)+12;
L43();
vs_top=sup;
base[14]= vs_base[0];
T1137:;
if((base[14])==Cnil){
goto T1156;}
goto T1136;
T1156:;
base[15]= elt(base[0],V106);
(void)(elt_set(base[13],V107,base[15]));
V107= (V107)+(1);
T1136:;
V106= (V106)+1;
goto T1131;}
T1122:;
base[14]= elt(base[0],V105);
vs_top=(vs_base=base+14)+1;
super_funcall_no_event(base[6]);
vs_top=sup;
base[13]= vs_base[0];
base[14]= base[0];
base[15]= VV[20];
base[16]= base[2];
base[17]= VV[21];
base[18]= base[3];
base[19]= VV[22];
base[20]= make_fixnum((V105)+1);
base[21]= VV[23];
base[22]= make_fixnum(V103);
base[23]= VV[25];
base[24]= base[6];
vs_top=(vs_base=base+13)+12;
L43();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1164;}
V104= (V104)+(1);
T1164:;
V105= (V105)+1;
goto T1121;}
T1116:;
{int V108;
int V109;
V108= 0;
V109= (V103)-1;
T1187:;
if(!((V109)<(V102))){
goto T1188;}
{int V110;
int V111;
base[14]=symbol_function(VV[78]);
base[15]= LI3(base[0]);
base[16]= make_fixnum((V101)-(V108));
base[13]= simple_lispcall_no_event(base+14,2);
V110= (V101)-1;
V111= ((V101)-1)-(V108);
T1197:;
if(!((V110)<(0))){
goto T1198;}
vs_top=(vs_base=base+13)+1;
return;
T1198:;
if((V102)<=(V110)){
goto T1204;}
base[14]= Cnil;
goto T1203;
T1204:;
if((V110)<(V103)){
goto T1206;}
base[14]= Cnil;
goto T1203;
T1206:;
base[16]= elt(base[0],V110);
vs_top=(vs_base=base+16)+1;
super_funcall_no_event(base[6]);
vs_top=sup;
base[15]= vs_base[0];
base[16]= base[0];
base[17]= VV[19];
base[18]= Ct;
base[19]= VV[20];
base[20]= base[2];
base[21]= VV[21];
base[22]= base[3];
base[23]= VV[22];
base[24]= make_fixnum(V102);
base[25]= VV[23];
base[26]= make_fixnum(V110);
base[27]= VV[25];
base[28]= base[6];
vs_top=(vs_base=base+15)+14;
L43();
vs_top=sup;
base[14]= vs_base[0];
T1203:;
if((base[14])==Cnil){
goto T1224;}
goto T1202;
T1224:;
base[15]= elt(base[0],V110);
(void)(elt_set(base[13],V111,base[15]));
V111= (V111)-(1);
T1202:;
V110= (V110)-1;
goto T1197;}
T1188:;
base[14]= elt(base[0],V109);
vs_top=(vs_base=base+14)+1;
super_funcall_no_event(base[6]);
vs_top=sup;
base[13]= vs_base[0];
base[14]= base[0];
base[15]= VV[19];
base[16]= Ct;
base[17]= VV[20];
base[18]= base[2];
base[19]= VV[21];
base[20]= base[3];
base[21]= VV[22];
base[22]= make_fixnum(V102);
base[23]= VV[23];
base[24]= make_fixnum(V109);
base[25]= VV[25];
base[26]= base[6];
vs_top=(vs_base=base+13)+14;
L43();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1232;}
V108= (V108)+(1);
T1232:;
V109= (V109)-1;
goto T1187;}}}
}
/* function definition for MISMATCH */
static L49()
{ register object *base=vs_base;
register object *sup=base+VM37;
vs_reserve(VM37);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,8,VV[19],VV[20],VV[21],VV[25],VV[72],VV[74],VV[73],VV[75]);
vs_top=sup;
if(base[13]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
if(base[14]==Cnil){
base[6]= VV[17];
}else{}
if(base[15]==Cnil){
base[7]= VV[17];
}else{}
if(base[16]==Cnil){
base[8]= make_fixnum(length(base[0]));
}else{}
if(base[17]==Cnil){
base[9]= make_fixnum(length(base[1]));
}else{}
(void)(LI7(base[3],base[4]));
(void)(LI9(base[6],base[8]));
(void)(LI9(base[7],base[9]));
{int V112;
int V113;
int V114;
int V115;
V112= fix(base[6]);
V113= fix(base[8]);
V114= fix(base[7]);
V115= fix(base[9]);
if((base[2])!=Cnil){
goto T1267;}
{int V116;
int V117;
V116= V112;
V117= V114;
T1272:;
if((V116)>=(V113)){
goto T1274;}
if(!((V117)>=(V115))){
goto T1273;}
T1274:;
if(!((V116)>=(V113))){
goto T1279;}
if(!((V117)>=(V115))){
goto T1279;}
base[18]= Cnil;
vs_top=(vs_base=base+18)+1;
return;
T1279:;
base[18]= make_fixnum(V116);
vs_top=(vs_base=base+18)+1;
return;
T1273:;
base[19]= elt(base[0],V116);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[18]= vs_base[0];
base[20]= elt(base[1],V117);
vs_top=(vs_base=base+20)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[19]= vs_base[0];
if((LI5(base[3],base[4],base[18],base[19]))!=Cnil){
goto T1284;}
base[18]= make_fixnum(V116);
vs_top=(vs_base=base+18)+1;
return;
T1284:;
V116= (V116)+1;
V117= (V117)+1;
goto T1272;}
T1267:;
{int V118;
int V119;
V118= (V113)-1;
V119= (V115)-1;
T1298:;
if((V118)<(V112)){
goto T1300;}
if(!((V119)<(V114))){
goto T1299;}
T1300:;
if(!((V118)<(V112))){
goto T1305;}
if(!((V119)<(V114))){
goto T1305;}
base[18]= Cnil;
vs_top=(vs_base=base+18)+1;
return;
T1305:;
base[18]= make_fixnum(V118);
vs_top=(vs_base=base+18)+1;
return;
T1299:;
base[19]= elt(base[0],V118);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[18]= vs_base[0];
base[20]= elt(base[1],V119);
vs_top=(vs_base=base+20)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[19]= vs_base[0];
if((LI5(base[3],base[4],base[18],base[19]))!=Cnil){
goto T1310;}
base[18]= make_fixnum(V118);
vs_top=(vs_base=base+18)+1;
return;
T1310:;
V118= (V118)-1;
V119= (V119)-1;
goto T1298;}}
}
/* function definition for SEARCH */
static L50()
{ register object *base=vs_base;
register object *sup=base+VM38;
vs_reserve(VM38);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,8,VV[19],VV[20],VV[21],VV[25],VV[72],VV[74],VV[73],VV[75]);
vs_top=sup;
if(base[13]==Cnil){
base[5]= symbol_function(VV[76]);
}else{}
if(base[14]==Cnil){
base[6]= VV[17];
}else{}
if(base[15]==Cnil){
base[7]= VV[17];
}else{}
if(base[16]==Cnil){
base[8]= make_fixnum(length(base[0]));
}else{}
if(base[17]==Cnil){
base[9]= make_fixnum(length(base[1]));
}else{}
(void)(LI7(base[3],base[4]));
(void)(LI9(base[6],base[8]));
(void)(LI9(base[7],base[9]));
{int V120;
int V121;
int V122;
int V123;
V120= fix(base[6]);
V121= fix(base[8]);
V122= fix(base[7]);
V123= fix(base[9]);
if((base[2])!=Cnil){
goto T1334;}
T1337:;
{int V124;
int V125;
V124= V120;
V125= V122;
T1343:;
if(!((V124)>=(V121))){
goto T1344;}
base[18]= make_fixnum(V122);
vs_top=(vs_base=base+18)+1;
return;
T1344:;
if(!((V125)>=(V123))){
goto T1348;}
base[18]= Cnil;
vs_top=(vs_base=base+18)+1;
return;
T1348:;
base[19]= elt(base[0],V124);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[18]= vs_base[0];
base[20]= elt(base[1],V125);
vs_top=(vs_base=base+20)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[19]= vs_base[0];
if((LI5(base[3],base[4],base[18],base[19]))!=Cnil){
goto T1351;}
goto T1339;
T1351:;
V124= (V124)+1;
V125= (V125)+1;
goto T1343;}
T1339:;
V122= (V122)+(1);
goto T1337;
T1334:;
T1365:;
{int V126;
int V127;
V126= (V121)-1;
V127= (V123)-1;
T1371:;
if(!((V126)<(V120))){
goto T1372;}
base[18]= make_fixnum((V127)+1);
vs_top=(vs_base=base+18)+1;
return;
T1372:;
if(!((V127)<(V122))){
goto T1376;}
base[18]= Cnil;
vs_top=(vs_base=base+18)+1;
return;
T1376:;
base[19]= elt(base[0],V126);
vs_top=(vs_base=base+19)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[18]= vs_base[0];
base[20]= elt(base[1],V127);
vs_top=(vs_base=base+20)+1;
super_funcall_no_event(base[5]);
vs_top=sup;
base[19]= vs_base[0];
if((LI5(base[3],base[4],base[18],base[19]))!=Cnil){
goto T1379;}
goto T1367;
T1379:;
V126= (V126)-1;
V127= (V127)-1;
goto T1371;}
T1367:;
V123= (V123)-(1);
goto T1365;}
}
/* function definition for SORT */
static L51()
{ register object *base=vs_base;
register object *sup=base+VM39;
vs_reserve(VM39);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,1,VV[25]);
vs_top=sup;
if(base[3]==Cnil){
base[2]= symbol_function(VV[76]);
}else{}
if(!(type_of(base[0])==t_cons||base[0]==Cnil)){
goto T1394;}
base[4]= base[0];
base[5]= base[1];
base[6]= base[2];
vs_top=(vs_base=base+4)+3;
L52();
return;
T1394:;
base[4]= base[0];
base[5]= VV[17];
base[6]= make_fixnum(length(base[0]));
base[7]= base[1];
base[8]= base[2];
vs_top=(vs_base=base+4)+5;
L55();
return;
}
/* function definition for LIST-MERGE-SORT */
static L52()
{ register object *base=vs_base;
register object *sup=base+VM40;
vs_reserve(VM40);
check_arg(3);
vs_top=sup;
TTL:;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
L53(base);
return;
}
/* function definition for QUICK-SORT */
static L55()
{ register object *base=vs_base;
register object *sup=base+VM41;
vs_reserve(VM41);
{int V128;
int V129;
check_arg(5);
V128=fix(base[1]);
V129=fix(base[2]);
vs_top=sup;
TTL:;
{int V130;
int V131;
V130= 0;
V131= 0;
if(!((V129)<=((V128)+1))){
goto T1407;}
vs_top=(vs_base=base+0)+1;
return;
T1407:;
V130= V128;
V131= (V129)-1;
base[5]= elt(base[0],V128);
T1417:;
if(!((V130)>(V131))){
goto T1418;}
goto T1414;
T1418:;
T1424:;
if((V130)>(V131)){
goto T1426;}
base[7]= elt(base[0],V131);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[6]= vs_base[0];
base[8]= base[5];
vs_top=(vs_base=base+8)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[7]= vs_base[0];
vs_top=(vs_base=base+6)+2;
super_funcall_no_event(base[3]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1425;}
T1426:;
goto T1422;
T1425:;
V131= (V131)-(1);
goto T1424;
T1422:;
if(!((V131)<(V128))){
goto T1439;}
base[6]= base[0];
base[7]= make_fixnum((V128)+1);
base[8]= make_fixnum(V129);
base[9]= base[3];
base[10]= base[4];
vs_top=(vs_base=base+6)+5;
L55();
vs_top=sup;
vs_top=(vs_base=base+0)+1;
return;
T1439:;
T1450:;
if((V130)>(V131)){
goto T1452;}
base[7]= elt(base[0],V130);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[6]= vs_base[0];
base[8]= base[5];
vs_top=(vs_base=base+8)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[7]= vs_base[0];
vs_top=(vs_base=base+6)+2;
super_funcall_no_event(base[3]);
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T1451;}
T1452:;
goto T1448;
T1451:;
V130= (V130)+(1);
goto T1450;
T1448:;
if(!((V130)>(V131))){
goto T1465;}
goto T1414;
T1465:;
base[6]= make_fixnum(V130);
base[7]= elt(base[0],V131);
base[8]= make_fixnum(V131);
base[9]= elt(base[0],V130);
(void)(elt_set(base[0],fixint(base[6]),base[7]));
(void)(elt_set(base[0],fixint(base[8]),base[9]));
V130= (V130)+(1);
V131= (V131)-(1);
goto T1417;
T1414:;
base[5]= base[0];
base[6]= make_fixnum(V128);
base[7]= make_fixnum(V130);
base[8]= base[3];
base[9]= base[4];
vs_top=(vs_base=base+5)+5;
L55();
vs_top=sup;
base[5]= base[0];
base[6]= make_fixnum(V130);
base[7]= make_fixnum(V129);
base[8]= base[3];
base[9]= base[4];
vs_top=(vs_base=base+5)+5;
L55();
vs_top=sup;
vs_top=(vs_base=base+0)+1;
return;}
}
}
/* function definition for STABLE-SORT */
static L56()
{ register object *base=vs_base;
register object *sup=base+VM42;
vs_reserve(VM42);
if(vs_top-vs_base<2) too_few_arguments();
parse_key(vs_base+2,FALSE,FALSE,1,VV[25]);
vs_top=sup;
if(base[3]==Cnil){
base[2]= symbol_function(VV[76]);
}else{}
if(!(type_of(base[0])==t_cons||base[0]==Cnil)){
goto T1493;}
base[4]= base[0];
base[5]= base[1];
base[6]= base[2];
vs_top=(vs_base=base+4)+3;
L52();
return;
T1493:;
if(type_of(base[0])==t_string){
goto T1498;}
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lbit_vector_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1499;}
T1498:;
base[4]= base[0];
base[5]= base[1];
base[6]= VV[25];
base[7]= base[2];
vs_top=(vs_base=base+4)+4;
L51();
return;
T1499:;
base[4]=symbol_function(VV[80]);
base[7]= base[0];
base[8]= VV[2];
base[6]= simple_symlispcall_no_event(VV[80],base+7,2);
base[7]= base[1];
base[8]= base[2];
vs_top=(vs_base=base+6)+3;
L52();
vs_top=sup;
base[5]= vs_base[0];
base[6]= LI3(base[0]);
lispcall_no_event(base+4,2);
return;
}
/* function definition for MERGE */
static L57()
{ register object *base=vs_base;
register object *sup=base+VM43;
vs_reserve(VM43);
if(vs_top-vs_base<4) too_few_arguments();
parse_key(vs_base+4,FALSE,FALSE,1,VV[25]);
vs_top=sup;
if(base[5]==Cnil){
base[4]= symbol_function(VV[76]);
}else{}
{int V132;
int V133;
V132= length(base[1]);
V133= length(base[2]);
{int V134;
int V135;
int V136;
base[7]= base[0];
base[8]= make_fixnum((V132)+(V133));
base[6]= simple_symlispcall_no_event(VV[78],base+7,2);
V134= 0;
V135= 0;
V136= 0;
T1525:;
if(!((V135)==(V132))){
goto T1526;}
if(!((V136)==(V133))){
goto T1526;}
vs_top=(vs_base=base+6)+1;
return;
T1526:;
if(!((V135)<(V132))){
goto T1534;}
if(!((V136)<(V133))){
goto T1534;}
base[8]= elt(base[1],V135);
vs_top=(vs_base=base+8)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[7]= vs_base[0];
base[9]= elt(base[2],V136);
vs_top=(vs_base=base+9)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[8]= vs_base[0];
vs_top=(vs_base=base+7)+2;
super_funcall_no_event(base[3]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1539;}
base[7]= elt(base[1],V135);
(void)(elt_set(base[6],V134,base[7]));
V135= (V135)+(1);
goto T1532;
T1539:;
base[8]= elt(base[2],V136);
vs_top=(vs_base=base+8)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[7]= vs_base[0];
base[9]= elt(base[1],V135);
vs_top=(vs_base=base+9)+1;
super_funcall_no_event(base[4]);
vs_top=sup;
base[8]= vs_base[0];
vs_top=(vs_base=base+7)+2;
super_funcall_no_event(base[3]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1548;}
base[7]= elt(base[2],V136);
(void)(elt_set(base[6],V134,base[7]));
V136= (V136)+(1);
goto T1532;
T1548:;
base[7]= elt(base[1],V135);
(void)(elt_set(base[6],V134,base[7]));
V135= (V135)+(1);
goto T1532;
T1534:;
if(!((V135)<(V132))){
goto T1559;}
base[7]= elt(base[1],V135);
(void)(elt_set(base[6],V134,base[7]));
V135= (V135)+(1);
goto T1532;
T1559:;
base[7]= elt(base[2],V136);
(void)(elt_set(base[6],V134,base[7]));
V136= (V136)+(1);
T1532:;
V134= (V134)+1;
goto T1525;}}
}
/* local function SORT */
static L53(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM44;
vs_reserve(VM44);
check_arg(1);
vs_top=sup;
TTL:;
{int V137;
V137= 0;
base[1]= Cnil;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
V137= length(base[0]);
if(!((V137)<(2))){
goto T1577;}
vs_top=(vs_base=base+0)+1;
return;
T1577:;
if(!((V137)==(2))){
goto T1575;}
base[7]= car(base[0]);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base0[2]);
vs_top=sup;
base[5]= vs_base[0];
base[7]= cadr(base[0]);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base0[2]);
vs_top=sup;
base[6]= vs_base[0];
base[7]= base[5];
base[8]= base[6];
vs_top=(vs_base=base+7)+2;
super_funcall_no_event(base0[1]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1588;}
vs_top=(vs_base=base+0)+1;
return;
T1588:;
base[7]= base[6];
base[8]= base[5];
vs_top=(vs_base=base+7)+2;
super_funcall_no_event(base0[1]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1593;}
base[7]= nreverse(base[0]);
vs_top=(vs_base=base+7)+1;
return;
T1593:;
vs_top=(vs_base=base+0)+1;
return;
T1575:;
V137= (V137>=0&&2>0?(V137)/(2):ifloor(V137,2));
{int V138;
V138= 1;
base[7]= base[0];
T1602:;
if(!((V138)>=(V137))){
goto T1603;}
base[1]= base[0];
base[2]= cdr(base[7]);
if(type_of(base[7])!=t_cons)FEwrong_type_argument(Scons,base[7]);
(base[7])->c.c_cdr = Cnil;
goto T1599;
T1603:;
V138= (V138)+1;
base[7]= cdr(base[7]);
goto T1602;}
T1599:;
base[7]= base[1];
vs_top=(vs_base=base+7)+1;
L53(base0);
vs_top=sup;
base[1]= vs_base[0];
base[7]= base[2];
vs_top=(vs_base=base+7)+1;
L53(base0);
vs_top=sup;
base[2]= vs_base[0];
if(!(endp(base[1]))){
goto T1623;}
vs_top=(vs_base=base+2)+1;
return;
T1623:;
if(!(endp(base[2]))){
goto T1621;}
vs_top=(vs_base=base+1)+1;
return;
T1621:;
base[3]= make_cons(Cnil,Cnil);
base[4]= base[3];
base[7]= car(base[1]);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base0[2]);
vs_top=sup;
base[5]= vs_base[0];
base[7]= car(base[2]);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base0[2]);
vs_top=sup;
base[6]= vs_base[0];
T1570:;
base[7]= base[5];
base[8]= base[6];
vs_top=(vs_base=base+7)+2;
super_funcall_no_event(base0[1]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1637;}
goto T1571;
T1637:;
base[7]= base[6];
base[8]= base[5];
vs_top=(vs_base=base+7)+2;
super_funcall_no_event(base0[1]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1642;}
goto T1572;
T1642:;
goto T1571;
T1571:;
if(type_of(base[4])!=t_cons)FEwrong_type_argument(Scons,base[4]);
(base[4])->c.c_cdr = base[1];
base[4]= cdr(base[4]);
base[1]= cdr(base[1]);
if(!(endp(base[1]))){
goto T1651;}
if(type_of(base[4])!=t_cons)FEwrong_type_argument(Scons,base[4]);
(base[4])->c.c_cdr = base[2];
base[7]= cdr(base[3]);
vs_top=(vs_base=base+7)+1;
return;
T1651:;
base[7]= car(base[1]);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base0[2]);
vs_top=sup;
base[5]= vs_base[0];
goto T1570;
T1572:;
if(type_of(base[4])!=t_cons)FEwrong_type_argument(Scons,base[4]);
(base[4])->c.c_cdr = base[2];
base[4]= cdr(base[4]);
base[2]= cdr(base[2]);
if(!(endp(base[2]))){
goto T1663;}
if(type_of(base[4])!=t_cons)FEwrong_type_argument(Scons,base[4]);
(base[4])->c.c_cdr = base[1];
base[7]= cdr(base[3]);
vs_top=(vs_base=base+7)+1;
return;
T1663:;
base[7]= car(base[2]);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base0[2]);
vs_top=sup;
base[6]= vs_base[0];
goto T1570;}
}
/* global entry for the function CHECK-SEQ-ARGS */
static L11()
{ register object *base=vs_base;
check_arg(4);
base[0]=(LI11((base[0]),(base[1]),(base[2]),(base[3])));
vs_top=(vs_base=base)+1;
}
/* global entry for the function CHECK-SEQ-START-END */
static L9()
{ register object *base=vs_base;
check_arg(2);
base[0]=(LI9((base[0]),(base[1])));
vs_top=(vs_base=base)+1;
}
/* global entry for the function CHECK-SEQ-TEST */
static L7()
{ register object *base=vs_base;
check_arg(2);
base[0]=(LI7((base[0]),(base[1])));
vs_top=(vs_base=base)+1;
}
/* global entry for the function CALL-TEST */
static L5()
{ register object *base=vs_base;
check_arg(4);
base[0]=(LI5((base[0]),(base[1]),(base[2]),(base[3])));
vs_top=(vs_base=base)+1;
}
/* global entry for the function SEQTYPE */
static L3()
{ register object *base=vs_base;
check_arg(1);
base[0]=(LI3((base[0])));
vs_top=(vs_base=base)+1;
}